  {  Petrova Tatjana
     2012/11/18
     This program is a  solver!}

program Solve;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  Solver=class
     a,b,c:integer;
     procedure solve;
  end;
procedure Solver.solve;
var
  d,x1,x2 : real;
begin
  if (a<>0) then
  begin
    d:= b*b-4*a*c;
    if (d>=0) then
    begin
      x1 := (-b+sqrt(d))/(2*a);
      x2 := (-b-sqrt(d))/(2*a);
      writeln(x1);
      if (d<>0) then
        writeln(x2);
    end else begin
      writeln('No solution');
    end
  end else begin
    if (b<>0) then
    begin
      x1:=(-c)/b;
      writeln(x1)
    end else begin
      if(c<>0) then
        writeln('No solution')
      else
        writeln('Any number!');
    end;
  end;
end;
var
  s:Solver;
begin
  s:=Solver.Create;
  readln(s.a,s.b,s.c);
  s.solve;
  readln;
end.
